
DEF VAR a AS CHAR.
DEF VAR i AS INT.

FOR EACH mnd_ WHERE mnd_nbr = "50" :

    a = "" .

    DO i = 1 TO 9 :

        IF i = 1 THEN
            a = mnd_canrun + STRING(i) .
        ELSE
            a = a + "," + mnd_canrun + STRING(i) .

    END.

    ASSIGN mnd_canrun = a .


END.
